home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / PureBasic.lha / PureBasic_Demo / PureBasic / Examples / FullVersion_Sources / Palette.pb < prev    next >
Encoding:
Text File  |  2000-03-19  |  1.1 KB  |  46 lines
  1. ;
  2. ; ***********************************
  3. ;
  4. ; Palette example file for Pure Basic
  5. ;
  6. ;    © 1999 - Fantaisie Software -
  7. ;
  8. ; ***********************************
  9. ;
  10. ;
  11.  
  12. InitScreen(0)  ; We need 1 screen
  13. InitPalette(2) ; and 3 palettes objects
  14.  
  15. *ScrID = FindScreen(0,"") ; Get the default public screen and get its ID
  16.  
  17. ShowScreen()   ; Bring it to front
  18.  
  19. GetScreenPalette(1, *ScrID) ; Get the palette of the screen and save it
  20. GetScreenPalette(2, *ScrID) ; in the palette 1 and 2
  21.  
  22. UsePalette(2)               ; Set the palette 2 as used palette
  23.  
  24. PalRgb(1, 255, 0, 0)        ; Change the colour 1 of the used palette to red
  25.  
  26. Rgb(*ScrID, 1, 255, 255, 0) ; Change the display colour 1 to yellow !
  27.  
  28. CreatePalette(0,1 LSL ScreenDepth()) ; Create a blank palette with the number of colour of the screen
  29.  
  30. UsePalette(1)
  31.  
  32. PalRgb(1, 0, 0, 0)
  33.  
  34. #Rate = 5
  35.  
  36. a = Fade(0, 2, *ScrID, #Rate, 255/#Rate) ; Perform a nice fade between the palette 0 and 3
  37.  
  38. FadeOut(2, *ScrID, #Rate, 255/#Rate)     ; Finish with a cool fade out
  39.  
  40. DisplayPalette(1, *ScrID)
  41.  
  42. PrintN("Colour 3:"+Str(Red(3))+","+Str(Green(3))+","+Str(Blue(3)))
  43. PrintN("NbColour: "+Str(NbColour()))
  44.  
  45. End
  46.